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arly one midsummer morning I rose earlier than usual, and 
E decided to enjoy shaving to the accompaniment of the dawn 

chorus. I opened the bathroom window wide as I drew hot 
water. Thirty seconds later I heard my wife Barbie’s voice calling 
“Claudie! Claudie!’ as if she were summoning one of our cats for a 
meal. I chuckled, thinking she must be calling him in her sleep; but 
then I realised her voice was definitely coming from the garden. 

I imagined she must be sleepwalking, wandering around the 
garden; so I donned my robe and went outside through the patio 
door only to find no sign of her. I went to the bedroom and found 
her sleeping soundly. 

When I returned to shaving I heard the far-away voice again — 
and suddenly realised that I was being treated to an example of a 
bird mimicking Barbie — one that had heard her call Claudius and 
had been impressed enough to add her song to his repertoire. I 
laughed appreciatively — he had captured her intonations exactly. I 
also laughed ironically; did that poor bird realise he was summon- 
ing his natural predator? 

Many of today’s computer languages offer a wide range of 
sophisticated features that provide a professional look to even the 
simplest of programs. This is usually interpreted as a good thing, 
because attractive display and operation makes it more pleasant to 
use a program. 

But sometimes I wonder: are we programmers inviting preda- 
tory attack — just as that bird unwittingly summoned my cat — by 
giving false signals to our users about how polished our efforts are? 
Do we inadvertently teach people to depend upon the integrity of 
our program just because it sports a nifty combo box or other 
superficial improvements? 


@ Our pro- 
ram 
CROSS.BAS 
demon- 
strates how 
to save the 
information 
under an 
object on 
screen, in 
this case a 
cursor, and 
then restore 
it again once 
the object 
has been 
moved. 


PROGRAMMERS’ 
WORKSHOP 


In this month's programmer's workshop, Wilf Hey 
discovers a suicidal mimic, manipulates a crosshairs 
cursor, toys with the sensitivities of a mouse and 
challenges you to write a couple of programs for a 
Turing machine. 


PROGRAMMING CROSSHAIRS 

Jon Berry of Swindon has suggested that we take 
a look at how to manipulate a crosshairs cursor — 
the kind you would use to a gunsight. Jon wants 
to write a shoot-em-up game in Basic, but the 
technique will be useful for strategy and logic 
games too. They can be adapted to any situation 
where you want to move an object on screen and restore the infor- 
mation that was previously at that location. 

I have written this project in GW-Basic: it will work in QBasic 
and QuickBasic, but GW-Basic (which needs line numbers) allows 
us to see the program being built up and modified. 

After a bit of experimenting, I found that in SCREEN 8 mode 
(640 by 200 pixels) crosshairs look good if the vertical hair is one 
row of 21 pixels, and the horizontal hair is three rows of 11 pixels. 
This is because a pixel is not square. 

The first section of the program simply generates a random 
background and displays the crosshairs in the centre of the screen at 
the point with coordinates [320,100]. The two DIM statements 
(lines 150-160) are where the data under the crosshairs are stored. 
Lines 170-230 pepper the screen with random pixels in two colours 
(10 and 12 — the values assigned to J). 

Lines 240-300 save the information under the vertical part of 
the crosshairs, and set those pixels to white. Lines 320-370 save the 
information under the horizontal part in a similar manner. 


100 DEFINT I-Z 

110 KEY OFF 

120 SCREEN 8 

130 RANDOMIZE TIMER 

140 CLS 

150 DIM IVERT(3,11) 

160 DIM THORZ (21) 

170 REM 

180 REM - Scatter dots over the screen 
EO CFOR? T= 11: 7000 

200 FOR J = 10 TO 12 STEP 2 

210 PSET(INT(RND*640), INT(RND*200) ) 12 
220 NEXT 

230 NEXT 

240 REM 

250 REM — Set vertical hair 

260A FOR: T= 19 TOVS 

210 HORU Sars) a Ronit 
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260) TVERT (I,J) = POINT(318 + I, 94 + J) 
290 PSET(318 + I, 94 + J),15 

300 NEXT 

310 NEXT 

320 REM 

330 REM - Set horizontal hair 

340 FORMDa= 1hOr21 

350 IHORZ(I) = POINT(309 + I, 100) 


360 PSET(309 + I, 100),15 
370 NEXT 


GETTING SERIOUS 

Now we have handled the basics, we can get to work with animat- 
ing the crosshairs. In this program the crosshairs can be moved in 
one of only four directions: left, right, up or down. There are five 
steps to moving the crosshairs one pixel upward. We must: 


1. Ensure that we restore the data that was under the bottom row of 
the vertical hair. 


2. Restore most of the horizontal row. 

3 Reorganise our map of values under the crosshairs. 

4. Save some data and draw a new top row of the vertical hair. 
5. Save some data and draw a new horizontal row. 


Similar (but not identical) tasks are needed when the crosshairs are 
moved in any of the other three directions. 

Next we need to build a loop to look for keystrokes. Keying 
[Esc] will stop the program; anything else, except the arrow keys, 
will be ignored. Below, we will only code the routine to handle the 
UP key. This produces a two-character value for INKEY$, of 
which the second character is H. (Similarly P is down, K is left and 
M is right). Add the following code and test the result: only the up 
arrow should work. 


380 XLOC = 320 
390° ¥LOC = 100 
400 REM 


410 REM - Get a keystroke 
420.XS = INKEYS 


430 IF LEN(X$) = 0 THEN 420 
440 IF ASC(X$) = 27 THEN STOP 
450 IF LEN(X$) = 1 THEN 420 


460 X$ = MIDS$(X$,2,1) 

470 IF X$ = “P” THEN 420 
480 IF X$ = “K” THEN 420 
490 IF XS = “M” THEN 420 
500 IF X$ <> “H” THEN 420 
510 IF YLOC < 6 THEN 420 


~ THE TIER! PHASE OF PROGRAMMING 


| In the Oriental game of GO, one of the last phases of play is called 
‘Tieri, which (I understand) means ‘touching up’. I've always thought 
| that it’s a good idea to adopt appropriate terms and apply them to 
programming disciplines. Tieri, it seems to me, is good word to apply 
| to the job of neatening a program after you've accomplished its pri- 
| mary goal. 

{rot te you are not used to programming, Tieri may include finding recur- 
ring pieces of code and converting them into one subroutine. As you 
become more skilled, things you clear up during Tieri will become 
_ fewer, and creating subroutines will more and more be a job done 
| during program design. Of course the best programmer tools are 
those that reduce the need for Tieri. 

| If you care to think of it that way, OOP (Object-Oriented 
| Programming) is an organised attempt to reduce the need for Tieri. 
| Essentially, when you incorporate OOP into your programming philos- 
| ophy, you make the current description of a routine and its data 
| (known as a Class) neat and self-contained; all the messy bits are inher- 
ited from earlier-defined sub-Classes. If you stay tidy in each Class you 
create, the whole program cannot help but be tidy — in theory! 


520 REM 
530 REM — UP key 
540) PORT = 1 TORS 


550 PSET(XLOC-2+I, YLOC+5) , IVERT(I,11) 
560 NEXT 

SLOUPORS. = oh TOe2L 

580 PSET(XLOC-11+I, YLOC), IHORZ(I) 
590 NEXT 

600 FOR°I°= 1 TO 3 


610 FOR J = 10 TO 1 STEP -1 

620 IVERT(I, J+1) = IVERT(I, J) 

630 NEXT 

640 NEXT 

650 YLOC = YLOC - 1 

660 FOR I = 1 TO 3 

670 IVERT(I,1) = POINT(XLOC-2+I, YLOC-5) 
680 PSET(XLOC-2+I, YLOC-5),15 

690 NEXT 

700 FOR I = 1 TO 21 

710 IHORZ(I) = POINT(XLOC-11+I, YLOC) 
720 PSET(XLOC-11+I, YLOC),15 

730 NEXT 

740 GOTO 420 


The steps taken here may seem long-winded, but move the 
crosshairs reasonably quickly over the screen. For every press of 
the [Up] arrow we are restoring 24 pixels (lines 540-590), then sav- 
ing and over-painting 24 pixels (lines 660-730). The same approach 
can be used for the other three arrow keys; see CROSS.BAS on the 
SuperDisk for the full version. In the above code we simply loop if 
any of the other arrow keys are selected (lines 470-490). 

When you incorporate similar code in your own programs, you 
will, of course, want to do things other than move the crosshairs 
over the screen: around line 460 you may want to test to see if the 
user has pressed another key, such as [Enter]. 

I found that the pixel ratio problem — the fact that pixels are 
taller than they are wide — required a method of speeding up move- 
ment left and right. Look at the code on the SuperDisk version to 
see how I resolved this problem. You can enter a different value for 
the variable k in lines 1010 and 1370; a higher value speeds up 
movement, although if you select too high a number you can fill up 
the keyboard buffer. For a fast shoot-em-up game you really need 
to use a compiled version of Basic, such as QuickBasic. 


CRITICAL RODENTS 

Geoff Parton of York writes to ask how he can change the sensitiv- 
ity of a mouse from within a program, regardless of the setting 
before the program’s start. 

Unfortunately, it’s not simple. Your mouse normally has two 
sensitivities at the same time; when the mouse has been moved 
more than a certain distance over a certain period of time, it 
switches to double speed. (At least, that’s how most mice work). 

On the mouse driver I use this doubling threshold defaults to 64 
mickeys per second. By the way there are 200 mickeys to the inch; 
I suppose that we should use metric units and say that there are 
(nearly) eight mickeys to the millimetre. The effect of this is that if 
you move the mouse rapidly, its cursor moves even more rapidly. 

I know that ‘mickey’ hardly seems a serious technical measure- 
ment, but, as far as I know, it has been universally accepted and is 
well on its way to becoming standard. . 

There is a simple DOS interrupt that sets the number of mick- 
eys per pixel, which can be (and usually is) different for vertical 
and horizontal movement. The default is eight mickeys per horizon- 
tal pixel and 16 per vertical pixel; this means that for every eight 
mickeys you move your mouse toward the right, the mouse cursor 
will move one pixel in the same direction. 

Let’s say you want to make the mouse twice as sensitive — that 
is, the cursor moves twice as much for the same mouse movement. 
The following code in C will do this for you. 


#include <dos.h> 


union REGS regs; 
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regs.x.ax = O0x000F; 

regs .x.cx 4; 

regs.x.dx = 8; 

int86 (0x33,&regs,&regs) ; 


Note that the value placed in regs .x.cx is the new horizontal rate 
of mouse movement, and the value placed in regs.x.dx (usually 
best being double the other value) is the new vertical rate. 

The one major problem with this is that doubling the sensitivity 
also doubles the distance before the faster movement kicks in. So 
increasing the sensitivity in one sense actually decreases the sensi- 
tivity in another. Try using different values to see which suits you. 

You can also easily change the doubling threshold in a similar 
way, but I have found anomalies in some mouse drivers; if you 
would like to experiment, you should put 0x0013 into regs.x.ax 
and a reasonably large binary value (in the thousands) into 
regs .x.dx before using the same int 86 function. For your guid- 
ance you should know that the value you put in regs. x.dx is 
generally referred to as ‘acceleration’. 


PROGRAMMING THE TURING MACHINE 

Last month we looked briefly at how Turing machines work. This 
month we’re going to look in detail at programming the Turing 
machine, and I’ll leave you with a challenging Turing machine 
problem (see Programming Challenge, right). 

To recap a little; effectively a Turing machine is the simplest 
possible universal computer. It is capable of doing everything any 
digital computer, however complex, can do. Its four fundamental 
capabilities are to: examine an input bit at the current location; 
change the bit at the current location; determine its next course of 
action based on the value of the input bit; specify its next state 
(which offers two alternative courses of action). 

A program in any computer language, including raw machine 
code, can be summarised by those abilities. Many individual 
instructions must be viewed as programs in themselves; this is 
because the language of the Turing machine is actually on a much 
more fundamental level than even machine code. 

A Turing machine program is made up of a number of states, 
each of which has a choice of two instructions within it. If the cur- 
rent input is 0, the left-hand instruction is followed, but if it is 1, the 
right-hand instruction is followed. 

Each instruction consists of three parts: 

1. writing a new bit value (0 or 1) to replace the input; 
2. the direction in which to move along the input stream; 
3. the number of the next state; 

When a program starts, the machine is in state one; it finishes 
when an instruction puts it into state zero. 

To make all this a bit clearer, we’ll work through a program to 
add one to a number. The number is in binary (of course), and the 
Turing machine is currently at the start-position. The program is 
shown by the decision table below — An example Turing program. 

For the first example, suppose the number on the imaginary 
data tape is 10100 (decimal 20), and the current input bit is the 
rightmost zero. We turn on the Turing computer, which automati- 
cally starts in state 1. 


State 1. We see a zero, so we take the left-hand instruction, 0 
RIGHT 2; this means we write a zero (it was already zero), and 
move one bit to the right. Now we are in state 2: 

State 2. Whatever the value of the bit to the right of the number, 
the instruction is the same: 1 LEFT 3; this means we write a one, 
then move left. Now we are in state 3. 

State 3. We are back on the zero at the right end of the number, so 
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we select the instruction 1 Right 4; this means we change the zero 
to one, then move one position beyond the right of the number 
(again). Now we are in state 4. 

State 4. We changed the current bit — the one to the right of the 
number — to a one last time we were here (we were in State 2 at the 
time); this selects the instruction 1 LEFT 0; this means we change 
the current bit to one (it was already one), and move left again. 
Now we enter state 0 — in other words, the task is ended. 


If you followed this, you should find the data tape now has 10101 
(decimal 21) with the Turing machine hovering over the rightmost 
bit. To the right of this there is now a one that may or may not have 
been there before, but that doesn’t concern us. 

The extra bit immediately to the right of the number was used 
as a temporary storage — a marker in this case — for internal use of 
the program. You can see why this marker is used by following our 
second example (with briefer notes). This time the number on the 
imaginary tape is 1011 (decimal 11): 


State 1. Bit is one, so we select 1 RIGHT 2; 

State 2. Bit is unknown, but both selections are 1 LEFT 3; 

State 3. Bit is one, so we select 0 LEFT 3; the tape then says 1010, 
and the machine hovers over the | in the penultimate position. 
State 3 (again). Bit is one, so we select 0 LEFT 3; the tape then 
reads 1000, and the machine is over the zero to the right of the one. 
State 3 (yet again). Bit is zero, so we select 1 RIGHT 4; the tape 
says 1100, and the machine hovers over the penultimate zero. 
State 4. Bit is zero, so we select 0 RIGHT 4; the tape still says 
1100, and the machine is over the zero in the last position. 

State 4 (again). Bit is zero, so we select 0 RIGHT 4; after this the 
tape still says 1100, and the machine hovers over the marker we 
placed to the right of the number while in State 2. 

State 4 (yet again). Bit is one, so we select 1 LEFT 0 and stop. 


We are now left with the answer 1100 (decimal 12) on the data 
tape. It worked again! Now we can generalise and put comments to 
the purpose of our four working states: 


State 1: move to the marker-position. 

State 2: place a marker just beyond the number. 

State 3: move leftward until you find a zero. Change it to a one. 
State 4: move rightward until you find the marker. Return to the 
last position of the number and stop. 


It becomes awkward to deal with more than one number at a time — 
you need several states just to move back and forth between the 
two numbers on the tape — but as long as you can describe the input 
data you can build a Turing program to do anything possible with 
any computer — no matter how powerful. @ 


Tips, arguments and ideas are gratefully received by 
Wilf’s Programmers’ Workshop 

PC PLUS 

30 Monmouth Street 

Bath BA1 2BW 
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